home *** CD-ROM | disk | FTP | other *** search
/ Fifth Dimension / Fifth Dimension CD-ROM Volume 1 (Data Express) (1995).iso / inst / wari12.exe / INSTALL.FIL < prev    next >
Text File  |  1994-05-01  |  7KB  |  314 lines
  1. ' WARI  DOS / WINDOWS Installation Script
  2. ' Copyright 1994, ImagiSOFT, Inc.
  3. ' Version 1.2
  4. ' May 1, 1994
  5.  
  6. ' Note:  This installation script is written for THE FINISHING TOUCH, a
  7. '        professional installation program which is also an ImagiSOFT
  8. '        product.  It is distributed with WARI to make
  9. '        installation easier, and to reduce our support calls.
  10.  
  11. '        This script unpacks 2 compressed files (*.PAK) which is a
  12. '        major feature of the program.  For more information about
  13. '        THE FINISHING TOUCH, call ImagiSOFT at (505) 275-1920, or call
  14. '        our personal BBS number with your modem at (505) 275-9697.
  15. '        It will always have the latest shareware version of
  16. '        THE FINISHING TOUCH so you can "try before you buy".
  17.  
  18. BACKGROUND ~0\INSTALL.BIN
  19. TELESCOPE OFF
  20.  
  21. LANGUAGE ENGLISH      ' supports GERMAN, FRENCH, SPANISH, DANISH, and DUTCH
  22.  
  23. BORDER 1
  24. TELESCOPE ON
  25. SHADOW OFF
  26.  
  27. PAUSE 300              ' display screen for 3 seconds
  28.  
  29. CALL NO_VGA           ' test for vga+ monitor
  30.  
  31. FREE 600              ' if they don't have 400K free, forget it
  32. JUMP.NO NO_SPACE
  33.  
  34. ' display opening menu
  35. :OPENING
  36.  
  37. WINOPEN 0 5 31
  38. "        INSTALLATION OPTIONS MENU"
  39. ""
  40. "1.  Install as Microsoft Windows 3.1 Application"
  41. "2.  Install as DOS Application"
  42. "3.  QUIT"
  43. ""
  44. "SELECT ONE OF THE ABOVE:    "
  45.  
  46. WINUPDATE +10 +1 30
  47. "INSTALLATION OPTIONS MENU"
  48. INPUT A 1 +28 +7 15
  49. WINCLOSE
  50.  
  51. CALL TEMP_FILE
  52.  
  53. EXIST ~3\1.TMP
  54. JUMP.YES WINDOWS_APP
  55.  
  56. EXIST ~3\2.TMP
  57. JUMP.YES DOS_APP
  58.  
  59. EXIST ~3\3.TMP
  60. JUMP.YES EXIT
  61.  
  62. BEEP
  63. CALL TMP_DEL
  64. JUMP OPENING
  65.  
  66. ' ------------------------
  67. '   install as a dos app
  68. ' ------------------------
  69. :DOS_APP
  70. CALL TMP_DEL
  71.  
  72. ' have user set the drive
  73. CALL ESC
  74. DRIVE C 0 12 31 15 32 14 79
  75. WINCLOSE
  76.  
  77. ' have user set the path
  78. CALL ESC
  79. PATH \WARI 0 12 31 15 32 14 79
  80. WINCLOSE
  81.  
  82. CALL EMPTY_DIR
  83. CALL UNPACK
  84.  
  85. ' create batch file
  86. PROMPT OFF
  87. DELETE ~1\WARI.BAT 0 0 0
  88. PROMPT ON
  89. FILE ~1\WARI.BAT
  90. "~1"
  91. "cd ~2"
  92. "WARI"
  93. "cd \"
  94.  
  95. WINOPEN 0 4 31
  96. "WARI has been successfully installed."
  97. ""
  98. "     To run it, enter the command"
  99. "     from the root directory of drive ~1."
  100. ""
  101. ""
  102. ""
  103. ""
  104. "Press the [Enter] key to continue."
  105. WINUPDATE +36 +3 30
  106. "WARI"
  107. WINUPDATE +7 +6 27
  108. "THANK YOU FOR CHOOSING OUR SOFTWARE!"
  109. WAIT +36 +9
  110. WINCLOSE
  111.  
  112. :RUN
  113. WINOPEN 0 10 31
  114. "Would you like to run WARI right now   Y or N?"
  115. ASK +48 +1
  116. JUMP.NO EXIT
  117. RUN ~1\WARI.BAT
  118.  
  119. ' --------------------------
  120. '   install as windows app
  121. ' --------------------------
  122. :WINDOWS_APP
  123.  
  124. ' these commands set drive and path variables
  125. DRIVE C
  126. PATH \WINDOWS
  127.  
  128. :TEST_WIN
  129. EXIST ~1~2\WIN.COM
  130. JUMP.YES WIN_INSTALL
  131.  
  132. EXIST ~3\1.TMP
  133. JUMP.YES SKIP_BEEP
  134. BEEP
  135. RD ~1~2
  136. WINOPEN 0 4 79
  137. "Microsoft Windows is NOT found in the"
  138. "~1~2 directory.  Please try again."
  139. ""
  140. "Press ENTER to continue."
  141. WAIT +26 +4
  142. WINCLOSE
  143.  
  144. ' windows is in a directory other than C:\WINDOWS
  145. :SKIP_BEEP
  146. CALL TMP_DEL
  147. WINOPEN 0 4 31
  148. "To install WARI to Microsoft Windows, we need to know which"
  149. "hard drive Windows is installed on."
  150. ""
  151. "             Most people have Windows on this hard drive."
  152. "             Press ENTER if this is correct, or change to"
  153. "             the correct drive letter."
  154. "             (Press ESC to quit.)"
  155. PROMPT OFF
  156. DRIVE C +2 +3 17 14 32 14 79
  157. WINCLOSE
  158.  
  159. PROMPT ON
  160. WINOPEN 0 4 31
  161. "We also need to know the name of the directory where Microsoft"
  162. "Windows is installed.  Most people have Windows installed in"
  163. "                              this directory.  Press ENTER"
  164. "                              if this is OK, or input the name"
  165. "                              of the directory where Windows"
  166. "                              is installed."
  167. "                              (Press ESC to quit.)"
  168. PROMPT OFF
  169. PATH \WINDOWS +1 +3 17 14 32 14 79
  170. WINCLOSE
  171. PROMPT ON
  172. PROMPT OFF
  173. JUMP TEST_WIN
  174.  
  175. ' you know the windows directory, now install it
  176. :WIN_INSTALL
  177. CALL TMP_DEL
  178.  
  179. PROMPT OFF              ' make backup of progman.ini
  180. COPY ~1~2\PROGMAN.INI ~1~2\PROGMAN.BAK 0 0 0
  181. PROMPT ON
  182.  
  183. FILE ~1~2\PROGMAN.INI
  184. "Group506=~1\WARI\WARI.GRP"
  185.  
  186. PATH \WARI
  187. MD ~1~2
  188.  
  189. CALL EMPTY_DIR
  190.  
  191. CALL UNPACK
  192.  
  193.  
  194. ' --------------------------------
  195. '  successful install to windows
  196. ' --------------------------------
  197. WINOPEN 0 4 31
  198. "WARI has been installed in your Windows environment"
  199. "in the ~1~2 directory.  However, these changes won't"
  200. "take effect until you exit Windows, then run Windows again."
  201. ""
  202. ""
  203. ""
  204. "Press ENTER to return to Windows."
  205. WINUPDATE +12 +5 27
  206. "THANK YOU FOR CHOOSING OUR SOFTWARE!"
  207. WAIT +35 +7
  208. WINCLOSE
  209. END
  210.  
  211. ' ------------------
  212. '   error messages
  213. ' ------------------
  214. :INSTALL_FAILURE
  215. BEEP
  216. WINOPEN 0 4 79
  217. "WARI INSTALLATION FAILED BEFORE IT FINISHED!!"
  218. ""
  219. "Possible reasons:"
  220. "   -- The floppy disk was damaged during shipping."
  221. "   -- Your disk drive is out of alignment."
  222. ""
  223. "You may want to delete the files in the ~1~2 directory."
  224. ""
  225. "      Press [Enter] to Quit."
  226. WAIT +30 +9
  227. WINCLOSE
  228. JUMP EXIT
  229.  
  230. ' -----------
  231. ' subroutines
  232. ' -----------
  233. :EMPTY_DIR
  234. EXIST ~1~2\*.*                 ' brand new directory
  235. JUMP.NO SKIP_DEL
  236.  
  237. EXIST ~1~2\WARI.EXE            ' existing software
  238. JUMP.YES SKIP_DEL
  239.  
  240. WINOPEN 0 4 79
  241. "The directory ~1~2 already exists and contains files!"
  242. ""
  243. "   You will have to DELETE ALL THE FILES in this"
  244. "   directory prior to installing Wari here."
  245. ""
  246. "Press ENTER to Continue."
  247. WAIT +25 +6
  248. WINCLOSE
  249. JUMP OPENING
  250.  
  251. :SKIP_DEL
  252. RETURN
  253.  
  254. ' unpack data files
  255. :UNPACK
  256.  
  257. SET.FILES 16
  258.  
  259. PROMPT OFF
  260. COPY ~0\READ.ME ~1\~2\READ.ME 0 12 31
  261. PROMPT ON
  262.  
  263. UNPACK WARI.PAK 0 12 31 32 15 79       ' main program
  264. JUMP.FAIL INSTALL_FAILURE
  265.  
  266. UNPACK WINDOWS.PAK 0 12 31 32 15 79    ' windows pif, ico, and grp files
  267. JUMP.FAIL INSTALL_FAILURE
  268.  
  269. RETURN
  270.  
  271. ' create a temporary file in the default directory with a unique name based on the number input by the user
  272. :TEMP_FILE
  273. FILE ~3\~A.TMP
  274. "Delete this temporary file."
  275. RETURN
  276.  
  277. ' delete temporary file created by opening menu
  278. :TMP_DEL
  279. PROMPT OFF
  280. DELETE ~3\~A.TMP 0 0 0
  281. PROMPT ON
  282. RETURN
  283.  
  284. :ESC
  285. WINOPEN 0 20 31
  286. "(Press ESC to Quit) "
  287. RETURN
  288.  
  289. :NO_VGA
  290. VIDEO VGA              ' vga monitor is required
  291. JUMP.YES SKIP_VGA
  292. WINOPEN 0 4 79
  293. "This software requires a VGA monitor to run."
  294. "It probably won't run on your computer.  Do"
  295. "you want to install it anyway        Y or N?"
  296. ASK +39 +3
  297. JUMP.YES SKIP_VGA
  298. JUMP EXIT
  299. :SKIP_VGA
  300. RETURN
  301.  
  302. :NO_SPACE
  303. WINOPEN 0 4 79
  304. "This software requires at least 600 K of free"
  305. "disk space before you can can install it."
  306. ""
  307. "Press ENTER to continue."
  308. WAIT +26 +4
  309. JUMP EXIT
  310.  
  311. :EXIT
  312. CALL TMP_DEL
  313. END
  314.